home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Interactive CD Sampler / Microsoft Interactive CD Sampler.iso / DEMOS / C_Automp / AUTOTP / IMD.CST / 00014.ls < prev    next >
Encoding:
Text File  |  1996-07-16  |  830 b   |  28 lines
  1. on mouseCheck checkList
  2.   -- Copyright 1995 Interactive Media Design, Inc.
  3.   -- checkList - a two dimentional list that is passed containing a sprite number
  4.   --           - and a frame number or marker label.
  5.   -- format is [[1,"first"],[2,300],....]
  6.   global whereTo
  7.   if soundBusy(1) then
  8.     puppetSound 0
  9.   end if
  10.   if voidP(checkList) then
  11.     repeat with x = 1 to count(whereTo)
  12.       if getAt(getAt(whereTo,x),1) = the clickOn then
  13.         set the locH of sprite 40 = getAt(getAt(whereTo,x),3)
  14.         resetPuppet 1
  15.         go to getAt(getAt(whereTo,x),2)
  16.         exit 
  17.       end if
  18.     end repeat
  19.   else
  20.     repeat with x = 1 to count(checkList)
  21.       if getAt(getAt(checkList,x),1) = the clickOn then
  22.         resetPuppet 1
  23.         go to getAt(getAt(checkList,x),2)
  24.         exit 
  25.       end if
  26.     end repeat
  27.   end if
  28. end